home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
TBOXCOPY.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
3KB
|
55 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME TBOXCOPY.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NBT1.INC"
COLOR 7,0
CLS
? "┌─────────────────────────────────────────────────────────────────────────
? "│ TBoxCOPY ( Row?, Col?, Rows?, Cols?, Fpage?, Tpage? )
? "│ TBoxCOPY2 ( Fpage?, Tpage? )
? "├─────────────────────────────────────────────────────────────────────────
? "│ These routines allows you to move data from any valid screen page to any
? "│ other. Row?, Col?, Rows? and Cols? define both the area to be copied
? "│ from and to while Fpage? and Tpage? define which pages to be copied From
? "│ and To respectively.
? "│ TBoxCOPY2 copies the whole page but will NOT move/copy over character/
? "│ attribute combinations of 0/0. This allow for masking what data is to
? "│ be left as-is on the Tpage?.
? "└─────────────────────────────────────────────────────────────────────────
Tprint 25, 52, "Press <ÄANY KEY> to continue.", 15
fAnyKey
SCREEN 0,,1,0 ' Apage = 1
TBoxFILL 1, 1, 25, 80, 0, 0 ' clear page with attr 0 and char 0
TBoxFILL 10, 10, 10, 20, 177, 112 ' print a block of ▒'s
'
SCREEN 0,,2,0 ' Apage = 2
TBoxFILL 1, 1, 25, 80, 88, 12 ' Fill this page with red X's
'
SCREEN 0,,0,0 ' Apage = 0 (Normal)
TBoxFILL 1, 1, 25, 80, 65, 1 ' fill page with blue A's
DELAY 1 ' pause for effect
'
TBoxCopy2 1, 0 ' copy Apage 1 to Apage 0
DELAY 1 ' more effects
TBoxCopy2 2, 0 ' copy Apage 2 to Apage 0
DELAY 1 ' copy only the BOX from
TBoxCopy 10, 10, 10, 20, 1, 0 ' page 1 to page 0
DELAY 1 '
TBoxCopy 1, 1, 25, 80, 1, 0 ' now, copy everything from 1 to 0